home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / demo / takara / omake1.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-18  |  2.5 KB  |  77 lines
  1. 1000 SCREEN@ 0:CLS
  2. 1010 *GAMEN
  3. 1020 REM ****WAKU EGAKU ************************************************
  4. 1030  FOR J=0 TO 16 STEP 2
  5. 1040    LINE(J,20+J)-(630-J,476-J),PSET,5,B
  6. 1050  NEXT
  7. 1060  LINE(40,420)-(595,423),PSET,5,BF
  8. 1070 '
  9. 1080  LINE(152,228)-(488,228),PSET,2
  10. 1090  LINE(320, 60)-(320,395),PSET,2
  11. 1100 '
  12. 1110  LINE(180, 60)-(180,395),PSET,7,,&H6666
  13. 1120  LINE(250, 60)-(250,395),PSET,7,,&H6666
  14. 1130  LINE(390, 60)-(390,395),PSET,7,,&H6666
  15. 1140  LINE(460, 60)-(460,395),PSET,7,,&H6666
  16. 1150  LINE(152, 88)-(488, 88),PSET,7,,&H6666
  17. 1160  LINE(152,158)-(488,158),PSET,7,,&H6666
  18. 1170  LINE(152,298)-(488,298),PSET,7,,&H6666
  19. 1180  LINE(152,368)-(488,368),PSET,7,,&H6666
  20. 1190 '
  21. 1200  SYMBOL (309,231),"0", 1,1,7,0,PSET,0,2
  22. 1210 '
  23. 1220  SYMBOL (298,371),"-1",1,1,7,0,PSET,0,2
  24. 1230  SYMBOL (309, 91),"1", 1,1,7,0,PSET,0,2
  25. 1240 '
  26. 1250  SYMBOL (158,231),"-1",1,1,7,0,PSET,0,2
  27. 1260  SYMBOL (449,231),"1", 1,1,7,0,PSET,0,2
  28. 1300 '
  29. 1310 LOCATE 53,23:COLOR 7:PRINT "実行する   メニューへ";:COLOR 6
  30. 1320 LINE(420,434)-(488,456),PSET,7,B:LINE(510,434)-(594,456),PSET,7,B
  31. 1330 MOUSE 0:MOUSE 1,491,420,1
  32. 1340 X=MOUSE(4,0):Y=MOUSE(5,0)
  33. 1350 IF X>420 AND X<488 AND Y>434 AND Y<456 THEN GOTO 1421
  34. 1360 IF X>510 AND X<594 AND Y>434 AND Y<456 THEN GOTO *MENU_HE
  35. 1370 GOTO 1340
  36. 1380 '
  37. 1390 *MENU_HE
  38. 1391  LINE(419,432)-(595,457),PSET,0,BF:CLS 4:MOUSE 5
  39. 1400  CHAIN"SEITAKAK.BAS",,ALL
  40. 1410  RUN"SEITAKAK.BAS"
  41. 1420 '
  42. 1421 LINE(419,432)-(595,457),PSET,0,BF:CLS 4:MOUSE 5
  43. 1422 '
  44. 1430 LOCATE 7,3:COLOR 6:INPUT "何度";XTH
  45. 1440 '
  46. 1450  PI=3.14159!:TH=0:CHECK=1
  47. 1460  THT=(180-XTH)/2
  48. 1470  B=140*COS(TH*PI/180)*COS(TH*PI/180)*COS(TH*PI/180)
  49. 1480  A=140*COS(TH*PI/180)*SIN(TH*PI/180)*COS(TH*PI/180)
  50. 1490  C0=40+280-A:D0=100-B+127
  51. 1500  POINT(C0,D0)
  52. 1510 '
  53. 1520  LOCATE 7, 23:COLOR 6:PRINT C0;D0;:WAIT 100
  54. 1530 '
  55. 1540  FOR TH=0 TO 35720 STEP THT
  56. 1550    B=140*COS(TH*PI/180)*COS(TH*PI/180)*COS(TH*PI/180)
  57. 1560    A=140*COS(TH*PI/180)*SIN(TH*PI/180)*COS(TH*PI/180)
  58. 1570    C=40+280-A:D=100-B+127
  59. 1580  '
  60. 1590    LOCATE 7, 23:COLOR 6:PRINT C;D;
  61. 1600    LINE -(C,D),PSET,4'CIRCLE (C,D),3,2,,,,F,PSET,2
  62. 1610    C1=ABS(C-C0):D1=ABS(D-D0)
  63. 1620    LOCATE 7, 21:COLOR 6:PRINT C0;D0;C1;D1;
  64. 1630    IF CHECK=1 THEN GOTO 1650
  65. 1640    IF C1<1 AND D1<1 THEN GOTO 1690
  66. 1650    CHECK=CHECK+1
  67. 1660    'WAIT 50
  68. 1670  NEXT'
  69. 1680 ' 
  70. 1690 'WAIT 100:CIRCLE (320,228),140,5
  71. 1700 '
  72. 1710 CLS 4
  73. 1720 LOCATE 7, 23:COLOR 6:PRINT "もう１度 やるときは､ 何かキーを押して下さい";
  74. 1730 WHILE INKEY$="":WEND 
  75. 1740 ' 
  76. 1750 GOTO 1000
  77.